home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / nrpas13.zip / BETA.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  99b  |  5 lines

  1. FUNCTION beta(VAR z,w: real): real;
  2. BEGIN
  3.    beta := exp(gammln(z)+gammln(w)-gammln(z+w))
  4. END;
  5.